﻿Public Class calibreBO
    Dim calibre As New calibreDAO
    Public Function getCalibres(Optional ByVal EHESPINGARDA As Boolean = Nothing) As DataTable
        Try
            Return calibre.getCalibres(EHESPINGARDA)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Function getTodosCalibres() As DataTable
        Try
            Return calibre.getTodosCalibres()
        Catch ex As Exception
            Throw ex
        End Try
    End Function


End Class
